object FormBloqueoServicios: TFormBloqueoServicios Tag = 65700 Left = 306 Top = 191 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsSingle Caption = 'Bloqueo de servicios' ClientHeight = 384 ClientWidth = 424 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label20: TLabel Tag = 65700 Left = 14 Top = 13 Width = 98 Height = 13 Caption = 'Bloqueo de servicios' end object PandaBrown14: TPandaBrown Left = 14 Top = 34 Width = 32 Height = 32 TheBrown.Data = { 76020000424D7602000000000000760000002800000020000000200000000100 04000000000000020000120B0000120B00001000000000000000FFFFFF0000FF FF00FF00FF000000FF00C0C0C00080808000008080008000800000008000FFFF 000000FF00008080000000800000FF0000008000000000000000222222222822 22FFFFFF222222222222222222253385FFEEEEEEFFF222222223222222233388 FEEEEEEEEEEFF22222232222222333388EDEEDEEEEEEEF222222222222233433 37EDEEEEEEEEEEF2235222222256301338EEDEDEEEEEEEFF53522222256C6311 38EDDDEDEFEEFFC63222222225C6C6344387DEDEFCFFCC63822222225CACCB73 4338DDECCCCCC6388F2222225ACCBDD63338DDDCCAA65388CF2222225ACCBBCA 63338EDECCA638C4CF222225ACC9BCAAA63387EDEC6386CCCCF222250ACBBAAC CB73338ED7386AAC4CF22225ACB9BBCCDBB73338838CA6A6CCF22225CB9B9BBD BBDB783338ECCCCACCF22555555555555DBDB73388EEEECAACF2FFFFFFFFFFFF F55B7338338EDEC66AF21111111111111F57338E7737EEBCAFF211111FF11111 4F73387BDB388EEECF2261111FF11111F53387BDBDB738EECF22611111111114 F338EDDBDDDD738EF22226111FF1111F5388CBDDBBDDE788F22226111FF1114F 388CCDBDBDBDDE33822222611FF111F586CCDBDBDBDBDDF5532222611FF114F8 8CCCBDBDBDBDDF22235222261FF11F56AACCDCCDDBDFF2222222222611114F25 556CCCCCFFF22222222222226111F5222255555522222222222222226114F222 222222222222222222222222261F5222222222222222222222222222261F2222 2222222222222222222222222262222222222222222222222222} end object Label21: TLabel Tag = 65800 Left = 58 Top = 34 Width = 349 Height = 31 AutoSize = False Caption = 'Indica los servicios a los que deseas impedir el acceso.' WordWrap = True end object Bevel17: TBevel Left = 122 Top = 20 Width = 283 Height = 9 Shape = bsTopLine end object LVServicios: TListView Tag = 66800 Left = 58 Top = 80 Width = 347 Height = 221 HelpContext = 52 Columns = < item Caption = 'Servicio' Width = 100 end item Caption = 'Puerto' end item Caption = 'Descripci�n' Width = 180 end> ReadOnly = True HideSelection = False Checkboxes = True RowSelect = True TabOrder = 0 ViewStyle = vsReport end object ButtonAceptar: TButton Tag = 2200 Left = 214 Top = 353 Width = 90 Height = 22 Caption = '&Aceptar' Default = True ModalResult = 1 TabOrder = 1 OnClick = ButtonAceptarClick end object ButtonCancel: TButton Tag = 2400 Left = 316 Top = 353 Width = 90 Height = 22 Cancel = True Caption = '&Cancelar' ModalResult = 2 TabOrder = 2 end object CBPreguntar: TCheckBox Tag = 66600 Left = 58 Top = 314 Width = 347 Height = 17 HelpContext = 53 Caption = 'Preguntar por acci�n a realizar en caso de bloqueo' TabOrder = 3 end object ManuForm1: TManuForm Enabled = False TitleBar.ApplicationInfo.FontStyle = [fsBold] TitleBar.Color = clMaroon TitleBar.CompanyInfo.FontStyle = [fsBold, fsItalic] TitleBar.NbOfColors = 0 Left = 366 Top = 4 end end